unit ProdutoItem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, Grids, DBGrids;

type
  TFormProdutoItem = class(TForm)
    Label1: TLabel;
    LabelProduto: TLabel;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    TableProdutoItem: TTable;
    DataSource1: TDataSource;
    TableProdutoItemid: TIntegerField;
    TableProdutoItemid_produto: TIntegerField;
    TableProdutoItemid_item_estoque: TIntegerField;
    TableProdutoItemquantidade: TFloatField;
    TableProdutoItemdata: TDateTimeField;
    Button1: TButton;
    procedure TableProdutoItemid_item_estoqueGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    xId:integer;
  end;

var
  sql:string;
  FormProdutoItem: TFormProdutoItem;

implementation

uses Principal, IUProdutoItemEstoque;

{$R *.dfm}

procedure TFormProdutoItem.TableProdutoItemid_item_estoqueGetText(
  Sender: TField; var Text: String; DisplayText: Boolean);
begin

    sql := 'select item_estoque_name('+TableProdutoItemId_Item_Estoque.AsString+',''NK'') as nome';
    FormPrincipal.QueryAux.SQL.Clear;
    FormPrincipal.QueryAux.SQL.Add(sql);
    FormPrincipal.QueryAux.Close;
    FormPrincipal.QueryAux.Open;

    Text := FormPrincipal.QueryAux.FieldByName('nome').AsString;



end;

procedure TFormProdutoItem.FormActivate(Sender: TObject);
begin
    sql := 'select * from produto where id = ' + IntToStr(xId);
    FormPrincipal.QueryAux.SQL.Clear;
    FormPrincipal.QueryAux.SQL.Add(sql);
    FormPrincipal.QueryAux.Close;
    FormPrincipal.QueryAux.Open;

    LabelProduto.Caption := FormPrincipal.QueryAux.FieldByName('nm').AsString;

end;

procedure TFormProdutoItem.Button1Click(Sender: TObject);
begin

  if assigned(FormProdutoItemEstoque) then
     FormProdutoItemEstoque := nil;
      FormProdutoItemEstoque := TFormProdutoItemEstoque.Create(Self);
      FormProdutoItemEstoque.xId := TableProdutoItemId_Produto.AsInteger;
      FormProdutoItemEstoque.ShowModal;

end;

end.
